Программа печати суммы прописью в Excel
До того, как заняться созданием веб-сайтов, основатель нашей студии Андрей Коцюбинский писал книги по компьютерной тематике, и среди них значительной популярностью пользовалась книга «Excel для бухгалтера в примерах». С этой книгой распространялся макрос для Excel, автоматизирующий печать суммы прописью в электронных таблицах.
| Автору программы |
 |
Так как данный макрос достаточно популярен, а поддержка книги прекращена, мы решили предложить посетителям нашего сайта, как сам макрос, так и его модифицированную версию, а также руководство по их использованию. Сумма прописью в Excel может быть полезна бухгалтерам, экономистам, менеджерам и многим другим людям, активно использующим Excel в повседневной деятельности. Имеется возможность вывода сумм на русском языке в рублях, долларах, евро и гривнах. Специально для жителей Украины на сайте имеется вариант на украинском языке – сума прописом українською мовою. Возможно, некоторым окажется полезной сумма прописью онлайн. Если программа печати суммы прописью оказалась вам полезна, вы можете поблагодарить ее автора, отправив символическую сумму в пять рублей через сервис Яндекс.Деньги, воспользовавшись кнопкой, расположенной справа.
Надстройка: сумма прописью в Excel
Вместе с книгой не распространялась надстройка, но в большинстве случаев ее использование наиболее удобно, хотя иногда возникают проблемы подключения надстройки. Чтобы получить макрос печати суммы прописью в виде надстройки, щелкните мышью на ссылке, после чего скачайте нужный файл на свой компьютер.
Далее нужно поместить полученный файл в папку, в которой хранятся дополнительные надстройки. Конкретный путь к этой папке зависит от версии Excel, но скорее всего он будет похожим на этот: C:\Documents and Settings\User\Application Data\Microsoft\AddIns, где вместо User следует подставить имя пользователя Windows. Дополнительное неудобство вызывается тем, что папка Application Data может быть скрыта, то есть не видна при просмотре в проводнике Windows. Проще всего для размещения скачанного файла в нужной папке выбрать в Excel команду меню Сервис - Надстройки и в появившемся диалоге нажать кнопку Обзор. Будет открыт диалог выбора файла с надстройкой, причем текущей окажется нужная вам папка. Запустите проводник Windows и перейдите в нем к папке, в которой находится скачанный ранее из интернета файл. Перетащите с помощью мыши значок файла из окна проводника в открытый диалог. Теперь файл с нужной надстройкой находится в нужной папке. Щелкните на нем мышью и нажмите кнопку OK, чтобы закрыть диалог. В списке доступных надстроек должна появиться строка Сумма Прописью. Установите флажок рядом с этой строкой и нажмите кнопку OK, после чего вы сможете использовать функцию печати суммы прописью в Excel.
Макрос: сумма прописью в Excel
Если у вас не получилось подключить надстройку или она неверно работает, можно использовать макрос, размещенный в обычной рабочей книге Excel. Щелкнув мышью на ссылке, вы можете скачать нужную таблицу Excel с макросом печати суммы прописью на свой компьютер. Далее необходимо подключить данный макрос, для чего вначале необходимо разрешить выполнение макросов. При этом необходимо знать, что включение выполнения макросов может создать угрозу безопасности, если вы откроете таблицу Excel, созданную злоумышленником.
Для включения макросов при работе с версией Excel 2002, входящей в состав Microsoft Office XP, или с версией Microsoft Office Excel 2003, нужно выбрать команду меню Сервис - Параметры. Будет открыт диалог настройки, имеющий несколько вкладок. Необходимо открыть вкладку Безопасность, на которой следует нажать кнопку Безопасность макросов. На экране появится диалог настройки безопасности Excel. С помощью переключателя, расположенного в диалоге, установите низкий уровень безопасности, чтобы выполнялись все макросы. Далее необходимо закрыть оба диалога, для чего следует нажать кнопки OK в них. В Excel 2000 для вызова аналогичного диалога ненобходимо выбрать команду меню Сервис - Макрос - Безопасность. Если же используется версия Excel 97, нужно выбрать команду меню Сервис - Параметры. В диалоге настройки следует выбрать вкладку Общие и снять флажок Защита от макровирусов. Следует заметить, что если вы не снимите защиту от макровирусов в Excel 97 или установите средний уровень безопасности в других версиях программы, при запуске Excel будет задан вопрос, хотите ли вы выполнять макросы, на который следует ответить утвердительно.
Чтобы подключать программу печати суммы прописью ко всем электронным таблицам, следует поместить полученный файл в папку автозапуска Excel. Данная папка называется XLStart, и расположена она в папке, в которой установлен Microsoft Office. Вначале найдите папку Program Files. Скорее всего, она расположена на диске C вашего компьютера. В этой папке следует найти папку Microsoft Office или Microsoft Office 2003, а в ней папку Office 10, Office 11 или Office, в зависимости от используемой вами версии. Вне зависимости от конкретных названий папок, в последней папке вы должны обнаружить папку XLStart. Поместите скачанный ранее файл sumprop.xls в данную папку, после чего при каждом запуске Excel будет открываться таблица, в которой располагается макрос печати суммы прописью.
Использование программы печати суммы прописью
Вне зависимости от способа, которым вы подключили программу, в качестве макроса из рабочей книги или в качестве надстройки, работа с ней ведется через использование функций Excel. Введите в первую ячейку третьей строки формулу =СуммаПрописью(836) и вы увидите результат вычислений: Восемьсот тридцать шесть рублей 00 копеек. Введите после этого в первую ячейку второй строки формулу =СуммаПрописью(A1). Так как пока в ячейку A1 ничего не введено, то результатом будет Ноль рублей 00 копеек. После того, как в первую ячейку будет введено число, например, 3743917034,51, результат изменится на Три миллиарда семьсот сорок три миллиона девятьсот семнадцать тысяч тридцать четыре рубля 51 копейка. При вводе другого числа результат соответственно изменится. О выводе результата в другой валюте рассказывается на странице суммы прописью для долларов, евро, гривен.
Кроме печати суммы прописью доступна стала и еще одна дополнительная функция. Введите в первую ячейку число 582,43, а в любую свободную ячейку формулу =ЧислоПрописью(A1). Результатом будет пятьсот восемьдесят два, то есть первая буква уже не прописная, копейки отброшены и нет названия рублей. Также имеется возможность вывода суммы для названий женского рода – пятьсот восемьдесят две. Для этого следует использовать формулу =ЧислоПрописью(A1;ЛОЖЬ). Если второй параметр опущен, выводится сумма для названий мужского рода.
Вы можете использовать мастер функций, чтобы работать с функциями вывода суммы прописью и числа прописью. Вначале щелкните мышью на ячейке, в которую вы хотите вставить функцию, после чего откройте список доступных функций. В нем следует выбрать вариант Другие функции. Кроме того, для вызова функций можно нажать кнопку fx, расположенную в левой части строки формул. В ранних версиях программы аналогичная кнопка расположена на панели инструментов. Каким бы способом не вызван был мастер функций, в появившемся диалоге необходимо выбрать категорию Определенные пользователем. В списке функций данной категории должны находиться СуммаПрописью и ЧислоПрописью. Выбрав нужную функцию, нажмите кнопку OK, чтобы перейти к следующему диалогу мастера функций. В нем задаются аргументы, то есть вы должны ввести число, которое будет преобразовано в слова. Можно ввести непосредственно значение или сослаться на ячейку, в которой это значение расположено. Нажав кнопку OK, вы закроете диалог и вставите результат в текущую ячейку.
Дополнительные возможности функций СуммаПрописью и ЧислоПрописью
При использовании функции суммы прописью, вы можете включать ее в сложные выражения, как это принято в Excel. Например, вы можете вывести словами результат расчетов =СуммаПрописью(СУММ(B3:B12)/18-450) или добавить к результату слова «Прописью общая сумма:», как в этом примере: =СЦЕПИТЬ("Прописью общая сумма: ";СуммаПрописью(B3)).
Также имеется возможность незначительно изменить значения, выводимые в результате вычислений, используя средства Excel, предназначенные для обработки символьных данных. Например, если в ячейке A1 находится число 19,45, и вместо результата Девятнадцать рублей 45 копеек вы хотите получить Девятнадцать руб. 00 коп., нужно использовать примерно такую формулу:
=ЗАМЕНИТЬ(ЧислоПрописью(A1);1;1;ПРОПИСН(ЛЕВСИМВ(ЧислоПрописью(A1);1))) & " руб. 00 коп."
Используемая в примере функция ЧислоПрописью вернет все нужные слова, а с помощью стандартных функции ЛЕВСИМВ и ПРОПИСН первая буква результата будет изменена из строчной в прописную. Далее первый символ будет заменен на новый с помощью функции ЗАМЕНИТЬ. И, после всех преобразований, к концу полученной строки с помощью оператора & будет добавлена строка «руб. 00 коп.». Следует отметить, что копейки в этом примере отбрасываются, и всегда выводятся целые значения рублей.
Обратите внимание, что в скачиваемых файлах доступны исходные тексты макросов, так что при минимальном знании основ программирования вы можете при необходимости самостоятельно изменить их. Можно вместо рублей и копеек использовать другую валюту, например японские йены и сэны. Так как исходные тексты содержат подробные комментарии, их модификация не должна вызвать трудностей. Также можно перевести числовые значения на другой язык, но это может потребовать больше усилий. В любом случае, вы можете менять исходный текст макросов как угодно без каких-либо ограничений.
